
;; Literal lists should not be quoted...

(define P 
  (lambdaK ((f (7 8)) (g (a b))) (map list f g)))

(P)					; => ((7 a) (8 b))
(P 'g: '(-7 -8))			; => ((7 -7) (8 -8))

;; Redundant case, but don't do it!

(defineK (S) "No Arguments")
(S)					; => "No Arguments"

;; Test run-time expense for use as ordinary procedure.

(begin
  (define (P1 a b c) (/ a (/ b c)))
  (defineK (P2 (a 1) (b 2) (c 0)) (/ a (/ b c))))

(timeE (do-times 100000 (P1 3 5 4))) ; => (0.21566104888916016 . #t)

(timeE (do-times 100000 (P2 3 5 4))) ; => (0.8288619518280029 . #t)
